home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Scripts / Unpack&CheckZC < prev    next >
AmigaDOS Script File  |  1995-03-11  |  835b  |  36 lines
  1. .key IN/A,OUT/A,PUBSCREEN/A
  2. .bra {
  3. .ket }
  4.  
  5. FailAt 21
  6.  
  7. Echo "$VER: Unpack&CheckZC 1.7 (11.7.94) by Jan Ritzerfeld & Ralph Seichter"
  8.  
  9. Set TARGET T:_unpack.zp
  10. IF EXISTS $TARGET
  11.     Delete $TARGET ALL QUIET
  12. ENDIF
  13. MakeDir $TARGET
  14.  
  15. Echo "Extracting data from archive..."
  16. LhA -x0 -k e {IN} $TARGET/
  17.  
  18. Echo "Joining files..."
  19. Join $TARGET/#? AS {OUT}
  20.  
  21. Delete $TARGET ALL QUIET
  22. UnSet TARGET
  23.  
  24. Echo "Checking data..."
  25. IF EXISTS {OUT}.BAD
  26.     RequestChoice >NIL: TITLE="Unpack&CheckZC 1.7" BODY="A really bad buffer file already exists!" GADGETS="Overwrite" PUBSCREEN={PUBSCREEN}
  27. ENDIF
  28.  
  29. ZP:Tools/ZPCheckZC FILE {OUT} NOCHKABS NOCHKEDA NOCHKMID BUFFERS 384 PATH ""
  30. IF WARN
  31.     RequestChoice >NIL: TITLE="Unpack&CheckZC 1.7" BODY="You have got a really bad buffer!" GADGETS="OK" PUBSCREEN={PUBSCREEN}
  32. ENDIF
  33.  
  34. Delete {OUT} QUIET
  35. Rename {OUT}.001 {OUT}
  36.